/ BBS in a Box 12 / BBS in a box XII-1.iso / Files / Tele / C / Comet2.1.3.sit / 3270XCMD / TNOpen.c

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 08 54 4e 4f 70 65 6e | 2e 63 00 00 00 00 00 00 |..TNOpen|.c......|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 00 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 18 a7 00 | 00 01 7e a1 21 f1 e0 a1 |........|..~.!...|
|00000060| 21 f1 e0 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |!.......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 a6 e8 00 00 |........|........|
|00000080| 2f 2a 20 54 4e 4f 70 65 | 6e 2e 63 20 2d 2d 20 58 |/* TNOpe|n.c -- X|
|00000090| 43 4d 44 20 74 6f 20 6f | 70 65 6e 20 74 68 65 20 |CMD to o|pen the |
|000000a0| 54 4e 33 32 37 30 20 64 | 72 69 76 65 72 20 0d 09 |TN3270 d|river ..|
|000000b0| 63 6f 70 79 72 69 67 68 | 74 20 31 39 38 39 20 43 |copyrigh|t 1989 C|
|000000c0| 6f 72 6e 65 6c 6c 20 55 | 6e 69 76 65 72 73 69 74 |ornell U|niversit|
|000000d0| 79 20 0d 2a 2f 0d 0d 0d | 23 69 6e 63 6c 75 64 65 |y .*/...|#include|
|000000e0| 20 3c 54 79 70 65 73 2e | 68 3e 0d 23 69 6e 63 6c | <Types.|h>.#incl|
|000000f0| 75 64 65 20 3c 4d 65 6d | 6f 72 79 2e 68 3e 0d 23 |ude <Mem|ory.h>.#|
|00000100| 69 6e 63 6c 75 64 65 20 | 3c 44 65 76 69 63 65 73 |include |<Devices|
|00000110| 2e 68 3e 0d 23 69 6e 63 | 6c 75 64 65 20 3c 48 79 |.h>.#inc|lude <Hy|
|00000120| 70 65 72 58 43 6d 64 2e | 68 3e 0d 23 69 6e 63 6c |perXCmd.|h>.#incl|
|00000130| 75 64 65 20 3c 45 72 72 | 6f 72 73 2e 68 3e 0d 0d |ude <Err|ors.h>..|
|00000140| 23 69 6e 63 6c 75 64 65 | 20 3c 53 74 72 69 6e 67 |#include| <String|
|00000150| 2e 68 3e 0d 0d 23 69 6e | 63 6c 75 64 65 20 22 54 |.h>..#in|clude "T|
|00000160| 4e 64 72 76 72 2e 68 22 | 0d 0d 0d 70 61 73 63 61 |Ndrvr.h"|...pasca|
|00000170| 6c 20 76 6f 69 64 20 64 | 65 62 75 67 67 65 72 28 |l void d|ebugger(|
|00000180| 29 09 65 78 74 65 72 6e | 20 30 78 41 39 46 46 3b |).extern| 0xA9FF;|
|00000190| 20 20 20 0d 0d 0d 70 61 | 73 63 61 6c 20 76 6f 69 |   ...pa|scal voi|
|000001a0| 64 20 54 4e 4f 70 65 6e | 28 68 79 63 70 29 0d 58 |d TNOpen|(hycp).X|
|000001b0| 43 6d 64 50 74 72 20 68 | 79 63 70 3b 0d 7b 0d 09 |CmdPtr h|ycp;.{..|
|000001c0| 43 6e 74 72 6c 50 61 72 | 61 6d 20 64 72 76 70 62 |CntrlPar|am drvpb|
|000001d0| 3b 0d 09 6c 6f 6e 67 20 | 2a 20 61 72 67 73 3b 0d |;..long |* args;.|
|000001e0| 09 63 68 61 72 20 69 73 | 74 72 5b 38 30 5d 3b 09 |.char is|tr[80];.|
|000001f0| 09 2f 2a 20 66 6f 72 20 | 63 6f 6e 76 65 72 74 69 |./* for |converti|
|00000200| 6e 67 20 69 6e 74 20 74 | 6f 20 73 74 72 20 2a 2f |ng int t|o str */|
|00000210| 0d 09 69 6e 74 20 69 73 | 74 72 6c 65 6e 3b 0d 09 |..int is|trlen;..|
|00000220| 53 74 72 32 35 35 20 72 | 65 74 73 74 72 3b 0d 09 |Str255 r|etstr;..|
|00000230| 48 61 6e 64 6c 65 20 73 | 74 72 68 61 6e 64 3b 0d |Handle s|trhand;.|
|00000240| 09 4f 53 45 72 72 20 72 | 65 73 75 6c 74 3b 0d 09 |.OSErr r|esult;..|
|00000250| 0d 09 69 66 20 28 68 79 | 63 70 2d 3e 70 61 72 61 |..if (hy|cp->para|
|00000260| 6d 43 6f 75 6e 74 20 21 | 3d 20 34 29 20 7b 0d 09 |mCount !|= 4) {..|
|00000270| 09 73 65 74 68 61 6e 64 | 28 26 68 79 63 70 2d 3e |.sethand|(&hycp->|
|00000280| 72 65 74 75 72 6e 56 61 | 6c 75 65 2c 20 0d 09 09 |returnVa|lue, ...|
|00000290| 09 22 54 4e 4f 70 65 6e | 20 54 4e 49 44 2c 54 4e |."TNOpen| TNID,TN|
|000002a0| 73 63 72 65 65 6e 2c 54 | 4e 63 75 72 73 6f 72 2c |screen,T|Ncursor,|
|000002b0| 54 4e 66 69 65 6c 64 3a | 20 6e 65 65 64 20 34 20 |TNfield:| need 4 |
|000002c0| 67 6c 6f 62 61 6c 73 20 | 61 73 20 61 72 67 75 6d |globals |as argum|
|000002d0| 65 6e 74 73 2c 20 61 6c | 6c 20 71 75 6f 74 65 64 |ents, al|l quoted|
|000002e0| 22 29 3b 0d 09 09 72 65 | 74 75 72 6e 3b 0d 09 7d |");...re|turn;..}|
|000002f0| 0d 09 0d 09 64 72 76 70 | 62 2e 69 6f 4e 61 6d 65 |....drvp|b.ioName|
|00000300| 50 74 72 20 3d 20 22 5c | 70 2e 54 4e 64 72 76 72 |Ptr = "\|p.TNdrvr|
|00000310| 22 3b 0d 09 64 72 76 70 | 62 2e 63 73 43 6f 64 65 |";..drvp|b.csCode|
|00000320| 20 3d 20 66 73 43 75 72 | 50 65 72 6d 3b 09 09 09 | = fsCur|Perm;...|
|00000330| 09 09 2f 2a 20 73 61 6d | 65 20 61 73 20 70 65 72 |../* sam|e as per|
|00000340| 6d 69 73 73 69 6f 6e 73 | 20 2a 2f 0d 09 50 42 4f |missions| */..PBO|
|00000350| 70 65 6e 28 28 50 61 72 | 6d 42 6c 6b 50 74 72 29 |pen((Par|mBlkPtr)|
|00000360| 20 26 64 72 76 70 62 2c | 20 28 42 6f 6f 6c 65 61 | &drvpb,| (Boolea|
|00000370| 6e 29 20 30 29 3b 0d 0d | 09 69 66 20 28 64 72 76 |n) 0);..|.if (drv|
|00000380| 70 62 2e 69 6f 52 65 73 | 75 6c 74 29 20 7b 0d 09 |pb.ioRes|ult) {..|
|00000390| 09 2f 2a 20 63 61 6e 27 | 74 20 6f 70 65 6e 20 74 |./* can'|t open t|
|000003a0| 68 65 20 54 4e 64 72 76 | 72 20 2a 2f 0d 09 09 73 |he TNdrv|r */...s|
|000003b0| 65 74 68 61 6e 64 28 26 | 68 79 63 70 2d 3e 72 65 |ethand(&|hycp->re|
|000003c0| 74 75 72 6e 56 61 6c 75 | 65 2c 20 22 43 61 6e 27 |turnValu|e, "Can'|
|000003d0| 74 20 6f 70 65 6e 20 2e | 54 4e 64 72 76 72 22 29 |t open .|TNdrvr")|
|000003e0| 3b 0d 09 09 72 65 74 75 | 72 6e 3b 0d 09 7d 0d 09 |;...retu|rn;..}..|
|000003f0| 0d 09 69 73 74 72 6c 65 | 6e 20 3d 20 73 68 6f 72 |..istrle|n = shor|
|00000400| 74 74 6f 73 74 72 28 26 | 69 73 74 72 5b 30 5d 2c |ttostr(&|istr[0],|
|00000410| 20 64 72 76 70 62 2e 69 | 6f 43 52 65 66 4e 75 6d | drvpb.i|oCRefNum|
|00000420| 29 3b 0d 09 69 66 20 28 | 50 74 72 54 6f 48 61 6e |);..if (|PtrToHan|
|00000430| 64 28 26 69 73 74 72 5b | 30 5d 2c 20 26 73 74 72 |d(&istr[|0], &str|
|00000440| 68 61 6e 64 2c 20 28 53 | 69 7a 65 29 20 28 69 73 |hand, (S|ize) (is|
|00000450| 74 72 6c 65 6e 20 2b 20 | 31 29 29 29 20 7b 0d 09 |trlen + |1))) {..|
|00000460| 09 73 65 74 68 61 6e 64 | 28 26 68 79 63 70 2d 3e |.sethand|(&hycp->|
|00000470| 72 65 74 75 72 6e 56 61 | 6c 75 65 2c 20 22 4f 75 |returnVa|lue, "Ou|
|00000480| 74 20 6f 66 20 6d 65 6d | 6f 72 79 22 29 3b 0d 09 |t of mem|ory");..|
|00000490| 09 72 65 74 75 72 6e 3b | 0d 09 7d 0d 09 48 4c 6f |.return;|..}..HLo|
|000004a0| 63 6b 28 28 48 61 6e 64 | 6c 65 29 20 68 79 63 70 |ck((Hand|le) hycp|
|000004b0| 2d 3e 70 61 72 61 6d 73 | 5b 30 5d 29 3b 0d 09 5a |->params|[0]);..Z|
|000004c0| 65 72 6f 54 6f 50 61 73 | 28 68 79 63 70 2c 20 28 |eroToPas|(hycp, (|
|000004d0| 63 68 61 72 20 2a 29 20 | 2a 68 79 63 70 2d 3e 70 |char *) |*hycp->p|
|000004e0| 61 72 61 6d 73 5b 30 5d | 2c 20 26 72 65 74 73 74 |arams[0]|, &retst|
|000004f0| 72 5b 30 5d 29 3b 0d 09 | 53 65 74 47 6c 6f 62 61 |r[0]);..|SetGloba|
|00000500| 6c 28 68 79 63 70 2c 20 | 26 72 65 74 73 74 72 5b |l(hycp, |&retstr[|
|00000510| 30 5d 2c 20 73 74 72 68 | 61 6e 64 29 3b 0d 09 69 |0], strh|and);..i|
|00000520| 66 20 28 68 79 63 70 2d | 3e 72 65 73 75 6c 74 29 |f (hycp-|>result)|
|00000530| 20 7b 0d 09 09 73 65 74 | 68 61 6e 64 28 26 68 79 | {...set|hand(&hy|
|00000540| 63 70 2d 3e 72 65 74 75 | 72 6e 56 61 6c 75 65 2c |cp->retu|rnValue,|
|00000550| 20 22 43 61 6e 27 74 20 | 73 65 74 20 54 4e 49 44 | "Can't |set TNID|
|00000560| 22 29 3b 0d 09 09 72 65 | 74 75 72 6e 3b 0d 09 7d |");...re|turn;..}|
|00000570| 0d 09 44 69 73 70 6f 73 | 48 61 6e 64 6c 65 28 73 |..Dispos|Handle(s|
|00000580| 74 72 68 61 6e 64 29 3b | 0d 09 48 55 6e 6c 6f 63 |trhand);|..HUnloc|
|00000590| 6b 28 28 48 61 6e 64 6c | 65 29 20 68 79 63 70 2d |k((Handl|e) hycp-|
|000005a0| 3e 70 61 72 61 6d 73 5b | 30 5d 29 3b 0d 09 09 0d |>params[|0]);....|
|000005b0| 09 64 72 76 70 62 2e 63 | 73 43 6f 64 65 20 3d 20 |.drvpb.c|sCode = |
|000005c0| 48 54 4e 5f 4f 50 45 4e | 3b 0d 09 61 72 67 73 20 |HTN_OPEN|;..args |
|000005d0| 3d 20 28 6c 6f 6e 67 20 | 2a 29 20 26 64 72 76 70 |= (long |*) &drvp|
|000005e0| 62 2e 63 73 50 61 72 61 | 6d 5b 30 5d 3b 0d 0d 23 |b.csPara|m[0];..#|
|000005f0| 69 66 64 65 66 20 50 41 | 53 53 41 52 47 0d 09 2a |ifdef PA|SSARG..*|
|00000600| 61 72 67 73 20 3d 20 28 | 6c 6f 6e 67 29 20 68 79 |args = (|long) hy|
|00000610| 63 70 2d 3e 70 61 72 61 | 6d 73 5b 31 5d 3b 0d 09 |cp->para|ms[1];..|
|00000620| 09 2f 2a 20 70 61 73 73 | 20 74 68 65 20 22 64 61 |./* pass| the "da|
|00000630| 74 61 20 72 65 61 64 79 | 22 20 48 61 6e 64 6c 65 |ta ready|" Handle|
|00000640| 20 74 6f 20 74 68 65 20 | 64 72 76 72 20 74 6f 20 | to the |drvr to |
|00000650| 70 61 73 73 20 6f 6e 20 | 74 6f 20 54 4e 33 32 37 |pass on |to TN327|
|00000660| 30 20 2a 2f 0d 23 65 6e | 64 69 66 0d 0d 09 50 42 |0 */.#en|dif...PB|
|00000670| 43 6f 6e 74 72 6f 6c 28 | 28 50 61 72 6d 42 6c 6b |Control(|(ParmBlk|
|00000680| 50 74 72 29 20 26 64 72 | 76 70 62 2c 20 28 42 6f |Ptr) &dr|vpb, (Bo|
|00000690| 6f 6c 65 61 6e 29 20 30 | 29 3b 0d 0d 09 69 66 20 |olean) 0|);...if |
|000006a0| 28 64 72 76 70 62 2e 69 | 6f 52 65 73 75 6c 74 29 |(drvpb.i|oResult)|
|000006b0| 20 7b 0d 09 09 2f 2a 20 | 6f 70 65 6e 20 66 61 69 | {.../* |open fai|
|000006c0| 6c 65 64 20 2a 2f 0d 09 | 09 73 77 69 74 63 68 20 |led */..|.switch |
|000006d0| 28 64 72 76 70 62 2e 69 | 6f 52 65 73 75 6c 74 29 |(drvpb.i|oResult)|
|000006e0| 20 7b 0d 09 09 09 63 61 | 73 65 20 48 54 4e 52 5f | {....ca|se HTNR_|
|000006f0| 4e 4f 54 4e 3a 20 7b 0d | 09 09 09 09 73 65 74 68 |NOTN: {.|....seth|
|00000700| 61 6e 64 28 26 68 79 63 | 70 2d 3e 72 65 74 75 72 |and(&hyc|p->retur|
|00000710| 6e 56 61 6c 75 65 2c 20 | 22 54 4e 20 69 73 20 6e |nValue, |"TN is n|
|00000720| 6f 74 20 72 75 6e 6e 69 | 6e 67 22 29 3b 0d 09 09 |ot runni|ng");...|
|00000730| 09 09 72 65 74 75 72 6e | 3b 0d 09 09 09 7d 0d 09 |..return|;....}..|
|00000740| 09 09 63 61 73 65 20 48 | 54 4e 52 5f 41 43 54 49 |..case H|TNR_ACTI|
|00000750| 56 45 3a 20 7b 0d 09 09 | 09 09 73 65 74 68 61 6e |VE: {...|..sethan|
|00000760| 64 28 26 68 79 63 70 2d | 3e 72 65 74 75 72 6e 56 |d(&hycp-|>returnV|
|00000770| 61 6c 75 65 2c 20 22 54 | 4e 20 61 6c 72 65 61 64 |alue, "T|N alread|
|00000780| 79 20 6f 70 65 6e 22 29 | 3b 0d 09 09 09 09 62 72 |y open")|;.....br|
|00000790| 65 61 6b 3b 0d 09 09 09 | 7d 0d 09 09 09 63 61 73 |eak;....|}....cas|
|000007a0| 65 20 48 54 4e 52 5f 4f | 50 45 4e 3a 20 7b 0d 09 |e HTNR_O|PEN: {..|
|000007b0| 09 09 09 73 65 74 68 61 | 6e 64 28 26 68 79 63 70 |...setha|nd(&hycp|
|000007c0| 2d 3e 72 65 74 75 72 6e | 56 61 6c 75 65 2c 20 22 |->return|Value, "|
|000007d0| 54 4e 20 61 6c 72 65 61 | 64 79 20 68 61 73 20 61 |TN alrea|dy has a|
|000007e0| 20 63 6f 6e 6e 65 63 74 | 69 6f 6e 22 29 3b 0d 09 | connect|ion");..|
|000007f0| 09 09 09 72 65 74 75 72 | 6e 3b 0d 09 09 09 7d 0d |...retur|n;....}.|
|00000800| 09 09 09 63 61 73 65 20 | 62 61 64 55 6e 69 74 45 |...case |badUnitE|
|00000810| 72 72 3a 20 7b 0d 09 09 | 09 09 73 65 74 68 61 6e |rr: {...|..sethan|
|00000820| 64 28 26 68 79 63 70 2d | 3e 72 65 74 75 72 6e 56 |d(&hycp-|>returnV|
|00000830| 61 6c 75 65 2c 20 22 54 | 4e 49 44 20 69 73 20 69 |alue, "T|NID is i|
|00000840| 6e 63 6f 72 72 65 63 74 | 22 29 3b 0d 09 09 09 09 |ncorrect|");.....|
|00000850| 72 65 74 75 72 6e 3b 0d | 09 09 09 7d 0d 09 09 09 |return;.|...}....|
|00000860| 64 65 66 61 75 6c 74 3a | 20 7b 0d 09 09 09 09 73 |default:| {.....s|
|00000870| 65 74 68 61 6e 64 28 26 | 68 79 63 70 2d 3e 72 65 |ethand(&|hycp->re|
|00000880| 74 75 72 6e 56 61 6c 75 | 65 2c 20 22 55 6e 6b 6e |turnValu|e, "Unkn|
|00000890| 6f 77 6e 20 65 72 72 6f | 72 22 29 3b 0d 09 09 09 |own erro|r");....|
|000008a0| 09 72 65 74 75 72 6e 3b | 0d 09 09 09 7d 0d 09 09 |.return;|....}...|
|000008b0| 7d 0d 09 7d 0d 09 2f 2a | 20 6f 6e 20 72 65 74 75 |}..}../*| on retu|
|000008c0| 72 6e 20 66 69 72 73 74 | 20 6c 6f 6e 67 20 61 72 |rn first| long ar|
|000008d0| 67 20 73 65 74 20 74 6f | 20 61 64 64 72 65 73 73 |g set to| address|
|000008e0| 20 6f 66 20 73 63 72 65 | 65 6e 20 62 75 66 66 65 | of scre|en buffe|
|000008f0| 72 20 2a 2f 0d 09 69 73 | 74 72 6c 65 6e 20 3d 20 |r */..is|trlen = |
|00000900| 75 6c 6f 6e 67 74 6f 73 | 74 72 28 26 69 73 74 72 |ulongtos|tr(&istr|
|00000910| 5b 30 5d 2c 20 2a 61 72 | 67 73 29 3b 0d 09 69 66 |[0], *ar|gs);..if|
|00000920| 20 28 50 74 72 54 6f 48 | 61 6e 64 28 26 69 73 74 | (PtrToH|and(&ist|
|00000930| 72 5b 30 5d 2c 20 26 73 | 74 72 68 61 6e 64 2c 20 |r[0], &s|trhand, |
|00000940| 28 53 69 7a 65 29 20 28 | 69 73 74 72 6c 65 6e 20 |(Size) (|istrlen |
|00000950| 2b 20 31 29 29 29 20 7b | 0d 09 09 73 65 74 68 61 |+ 1))) {|...setha|
|00000960| 6e 64 28 26 68 79 63 70 | 2d 3e 72 65 74 75 72 6e |nd(&hycp|->return|
|00000970| 56 61 6c 75 65 2c 20 22 | 4f 75 74 20 6f 66 20 6d |Value, "|Out of m|
|00000980| 65 6d 6f 72 79 22 29 3b | 0d 09 09 72 65 74 75 72 |emory");|...retur|
|00000990| 6e 3b 0d 09 7d 0d 09 48 | 4c 6f 63 6b 28 28 48 61 |n;..}..H|Lock((Ha|
|000009a0| 6e 64 6c 65 29 20 68 79 | 63 70 2d 3e 70 61 72 61 |ndle) hy|cp->para|
|000009b0| 6d 73 5b 31 5d 29 3b 0d | 09 5a 65 72 6f 54 6f 50 |ms[1]);.|.ZeroToP|
|000009c0| 61 73 28 68 79 63 70 2c | 20 28 63 68 61 72 20 2a |as(hycp,| (char *|
|000009d0| 29 20 2a 68 79 63 70 2d | 3e 70 61 72 61 6d 73 5b |) *hycp-|>params[|
|000009e0| 31 5d 2c 20 26 72 65 74 | 73 74 72 5b 30 5d 29 3b |1], &ret|str[0]);|
|000009f0| 0d 09 53 65 74 47 6c 6f | 62 61 6c 28 68 79 63 70 |..SetGlo|bal(hycp|
|00000a00| 2c 20 26 72 65 74 73 74 | 72 5b 30 5d 2c 20 73 74 |, &retst|r[0], st|
|00000a10| 72 68 61 6e 64 29 3b 0d | 09 69 66 20 28 68 79 63 |rhand);.|.if (hyc|
|00000a20| 70 2d 3e 72 65 73 75 6c | 74 29 20 7b 0d 09 09 73 |p->resul|t) {...s|
|00000a30| 65 74 68 61 6e 64 28 26 | 68 79 63 70 2d 3e 72 65 |ethand(&|hycp->re|
|00000a40| 74 75 72 6e 56 61 6c 75 | 65 2c 20 22 43 61 6e 27 |turnValu|e, "Can'|
|00000a50| 74 20 73 65 74 20 54 4e | 73 63 72 65 65 6e 22 29 |t set TN|screen")|
|00000a60| 3b 0d 09 09 72 65 74 75 | 72 6e 3b 0d 09 7d 0d 09 |;...retu|rn;..}..|
|00000a70| 44 69 73 70 6f 73 48 61 | 6e 64 6c 65 28 73 74 72 |DisposHa|ndle(str|
|00000a80| 68 61 6e 64 29 3b 0d 09 | 48 55 6e 6c 6f 63 6b 28 |hand);..|HUnlock(|
|00000a90| 28 48 61 6e 64 6c 65 29 | 20 68 79 63 70 2d 3e 70 |(Handle)| hycp->p|
|00000aa0| 61 72 61 6d 73 5b 31 5d | 29 3b 0d 0d 09 2f 2a 20 |arams[1]|);.../* |
|00000ab0| 6f 6e 20 72 65 74 75 72 | 6e 20 73 65 63 6f 6e 64 |on retur|n second|
|00000ac0| 20 6c 6f 6e 67 20 61 72 | 67 20 73 65 74 20 74 6f | long ar|g set to|
|00000ad0| 20 61 64 64 72 65 73 73 | 20 6f 66 20 63 75 72 73 | address| of curs|
|00000ae0| 6f 72 20 70 74 72 20 2a | 2f 0d 09 69 73 74 72 6c |or ptr *|/..istrl|
|00000af0| 65 6e 20 3d 20 75 6c 6f | 6e 67 74 6f 73 74 72 28 |en = ulo|ngtostr(|
|00000b00| 26 69 73 74 72 5b 30 5d | 2c 20 2a 2b 2b 61 72 67 |&istr[0]|, *++arg|
|00000b10| 73 29 3b 0d 09 69 66 20 | 28 50 74 72 54 6f 48 61 |s);..if |(PtrToHa|
|00000b20| 6e 64 28 26 69 73 74 72 | 5b 30 5d 2c 20 26 73 74 |nd(&istr|[0], &st|
|00000b30| 72 68 61 6e 64 2c 20 28 | 53 69 7a 65 29 20 28 69 |rhand, (|Size) (i|
|00000b40| 73 74 72 6c 65 6e 20 2b | 20 31 29 29 29 20 7b 0d |strlen +| 1))) {.|
|00000b50| 09 09 73 65 74 68 61 6e | 64 28 26 68 79 63 70 2d |..sethan|d(&hycp-|
|00000b60| 3e 72 65 74 75 72 6e 56 | 61 6c 75 65 2c 20 22 4f |>returnV|alue, "O|
|00000b70| 75 74 20 6f 66 20 6d 65 | 6d 6f 72 79 22 29 3b 0d |ut of me|mory");.|
|00000b80| 09 09 72 65 74 75 72 6e | 3b 0d 09 7d 0d 09 48 4c |..return|;..}..HL|
|00000b90| 6f 63 6b 28 28 48 61 6e | 64 6c 65 29 20 68 79 63 |ock((Han|dle) hyc|
|00000ba0| 70 2d 3e 70 61 72 61 6d | 73 5b 32 5d 29 3b 0d 09 |p->param|s[2]);..|
|00000bb0| 5a 65 72 6f 54 6f 50 61 | 73 28 68 79 63 70 2c 20 |ZeroToPa|s(hycp, |
|00000bc0| 28 63 68 61 72 20 2a 29 | 20 2a 68 79 63 70 2d 3e |(char *)| *hycp->|
|00000bd0| 70 61 72 61 6d 73 5b 32 | 5d 2c 20 26 72 65 74 73 |params[2|], &rets|
|00000be0| 74 72 5b 30 5d 29 3b 0d | 09 53 65 74 47 6c 6f 62 |tr[0]);.|.SetGlob|
|00000bf0| 61 6c 28 68 79 63 70 2c | 20 26 72 65 74 73 74 72 |al(hycp,| &retstr|
|00000c00| 5b 30 5d 2c 20 73 74 72 | 68 61 6e 64 29 3b 0d 09 |[0], str|hand);..|
|00000c10| 69 66 20 28 68 79 63 70 | 2d 3e 72 65 73 75 6c 74 |if (hycp|->result|
|00000c20| 29 20 7b 0d 09 09 73 65 | 74 68 61 6e 64 28 26 68 |) {...se|thand(&h|
|00000c30| 79 63 70 2d 3e 72 65 74 | 75 72 6e 56 61 6c 75 65 |ycp->ret|urnValue|
|00000c40| 2c 20 22 43 61 6e 27 74 | 20 73 65 74 20 54 4e 63 |, "Can't| set TNc|
|00000c50| 75 72 73 6f 72 22 29 3b | 0d 09 09 72 65 74 75 72 |ursor");|...retur|
|00000c60| 6e 3b 0d 09 7d 0d 09 44 | 69 73 70 6f 73 48 61 6e |n;..}..D|isposHan|
|00000c70| 64 6c 65 28 73 74 72 68 | 61 6e 64 29 3b 0d 09 48 |dle(strh|and);..H|
|00000c80| 55 6e 6c 6f 63 6b 28 28 | 48 61 6e 64 6c 65 29 20 |Unlock((|Handle) |
|00000c90| 68 79 63 70 2d 3e 70 61 | 72 61 6d 73 5b 32 5d 29 |hycp->pa|rams[2])|
|00000ca0| 3b 0d 0d 09 2f 2a 20 6f | 6e 20 72 65 74 75 72 6e |;.../* o|n return|
|00000cb0| 20 74 68 69 72 64 20 6c | 6f 6e 67 20 61 72 67 20 | third l|ong arg |
|00000cc0| 73 65 74 20 74 6f 20 61 | 64 64 72 65 73 73 20 6f |set to a|ddress o|
|00000cd0| 66 20 66 69 65 6c 64 20 | 70 74 72 20 2a 2f 0d 09 |f field |ptr */..|
|00000ce0| 69 73 74 72 6c 65 6e 20 | 3d 20 75 6c 6f 6e 67 74 |istrlen |= ulongt|
|00000cf0| 6f 73 74 72 28 26 69 73 | 74 72 5b 30 5d 2c 20 2a |ostr(&is|tr[0], *|
|00000d00| 2b 2b 61 72 67 73 29 3b | 0d 09 69 66 20 28 50 74 |++args);|..if (Pt|
|00000d10| 72 54 6f 48 61 6e 64 28 | 26 69 73 74 72 5b 30 5d |rToHand(|&istr[0]|
|00000d20| 2c 20 26 73 74 72 68 61 | 6e 64 2c 20 28 53 69 7a |, &strha|nd, (Siz|
|00000d30| 65 29 20 28 69 73 74 72 | 6c 65 6e 20 2b 20 31 29 |e) (istr|len + 1)|
|00000d40| 29 29 20 7b 0d 09 09 73 | 65 74 68 61 6e 64 28 26 |)) {...s|ethand(&|
|00000d50| 68 79 63 70 2d 3e 72 65 | 74 75 72 6e 56 61 6c 75 |hycp->re|turnValu|
|00000d60| 65 2c 20 22 4f 75 74 20 | 6f 66 20 6d 65 6d 6f 72 |e, "Out |of memor|
|00000d70| 79 22 29 3b 0d 09 09 72 | 65 74 75 72 6e 3b 0d 09 |y");...r|eturn;..|
|00000d80| 7d 0d 09 48 4c 6f 63 6b | 28 28 48 61 6e 64 6c 65 |}..HLock|((Handle|
|00000d90| 29 20 68 79 63 70 2d 3e | 70 61 72 61 6d 73 5b 33 |) hycp->|params[3|
|00000da0| 5d 29 3b 0d 09 5a 65 72 | 6f 54 6f 50 61 73 28 68 |]);..Zer|oToPas(h|
|00000db0| 79 63 70 2c 20 28 63 68 | 61 72 20 2a 29 20 2a 68 |ycp, (ch|ar *) *h|
|00000dc0| 79 63 70 2d 3e 70 61 72 | 61 6d 73 5b 33 5d 2c 20 |ycp->par|ams[3], |
|00000dd0| 26 72 65 74 73 74 72 5b | 30 5d 29 3b 0d 09 53 65 |&retstr[|0]);..Se|
|00000de0| 74 47 6c 6f 62 61 6c 28 | 68 79 63 70 2c 20 26 72 |tGlobal(|hycp, &r|
|00000df0| 65 74 73 74 72 5b 30 5d | 2c 20 73 74 72 68 61 6e |etstr[0]|, strhan|
|00000e00| 64 29 3b 0d 09 69 66 20 | 28 68 79 63 70 2d 3e 72 |d);..if |(hycp->r|
|00000e10| 65 73 75 6c 74 29 20 7b | 0d 09 09 73 65 74 68 61 |esult) {|...setha|
|00000e20| 6e 64 28 26 68 79 63 70 | 2d 3e 72 65 74 75 72 6e |nd(&hycp|->return|
|00000e30| 56 61 6c 75 65 2c 20 22 | 43 61 6e 27 74 20 73 65 |Value, "|Can't se|
|00000e40| 74 20 54 4e 66 69 65 6c | 64 22 29 3b 0d 09 09 72 |t TNfiel|d");...r|
|00000e50| 65 74 75 72 6e 3b 0d 09 | 7d 0d 09 44 69 73 70 6f |eturn;..|}..Dispo|
|00000e60| 73 48 61 6e 64 6c 65 28 | 73 74 72 68 61 6e 64 29 |sHandle(|strhand)|
|00000e70| 3b 0d 09 48 55 6e 6c 6f | 63 6b 28 28 48 61 6e 64 |;..HUnlo|ck((Hand|
|00000e80| 6c 65 29 20 68 79 63 70 | 2d 3e 70 61 72 61 6d 73 |le) hycp|->params|
|00000e90| 5b 33 5d 29 3b 0d 0d 09 | 72 65 74 75 72 6e 3b 0d |[3]);...|return;.|
|00000ea0| 7d 0d 0d 0d 73 65 74 68 | 61 6e 64 28 74 68 61 6e |}...seth|and(than|
|00000eb0| 64 2c 20 73 74 72 29 0d | 48 61 6e 64 6c 65 20 2a |d, str).|Handle *|
|00000ec0| 20 74 68 61 6e 64 3b 0d | 63 68 61 72 20 2a 20 73 | thand;.|char * s|
|00000ed0| 74 72 3b 0d 7b 0d 09 69 | 66 20 28 2a 74 68 61 6e |tr;.{..i|f (*than|
|00000ee0| 64 20 3d 3d 20 4e 55 4c | 4c 29 20 7b 0d 09 09 2a |d == NUL|L) {...*|
|00000ef0| 74 68 61 6e 64 20 3d 20 | 4e 65 77 48 61 6e 64 6c |thand = |NewHandl|
|00000f00| 65 28 28 53 69 7a 65 29 | 20 30 29 3b 0d 09 7d 0d |e((Size)| 0);..}.|
|00000f10| 09 53 65 74 48 61 6e 64 | 6c 65 53 69 7a 65 28 2a |.SetHand|leSize(*|
|00000f20| 74 68 61 6e 64 2c 20 28 | 6c 6f 6e 67 29 20 28 73 |thand, (|long) (s|
|00000f30| 74 72 6c 65 6e 28 73 74 | 72 29 20 2b 20 31 29 29 |trlen(st|r) + 1))|
|00000f40| 3b 0d 09 73 74 72 63 70 | 79 28 2a 2a 74 68 61 6e |;..strcp|y(**than|
|00000f50| 64 2c 20 73 74 72 29 3b | 0d 7d 0d 0d 0d 2f 2a 20 |d, str);|.}.../* |
|00000f60| 63 6f 6e 76 65 72 74 20 | 61 20 73 68 6f 72 74 20 |convert |a short |
|00000f70| 74 6f 20 61 20 73 74 72 | 69 6e 67 2c 20 72 65 74 |to a str|ing, ret|
|00000f80| 75 72 6e 69 6e 67 20 74 | 68 65 20 6c 65 6e 67 74 |urning t|he lengt|
|00000f90| 68 20 2a 2f 0d 0d 73 68 | 6f 72 74 74 6f 73 74 72 |h */..sh|orttostr|
|00000fa0| 28 73 74 72 70 2c 20 74 | 68 65 6e 75 6d 29 0d 63 |(strp, t|henum).c|
|00000fb0| 68 61 72 20 2a 20 73 74 | 72 70 3b 0d 73 68 6f 72 |har * st|rp;.shor|
|00000fc0| 74 20 74 68 65 6e 75 6d | 3b 0d 7b 0d 09 63 68 61 |t thenum|;.{..cha|
|00000fd0| 72 20 74 61 72 72 5b 38 | 30 5d 3b 0d 09 63 68 61 |r tarr[8|0];..cha|
|00000fe0| 72 20 2a 20 74 61 72 72 | 70 20 3d 20 26 74 61 72 |r * tarr|p = &tar|
|00000ff0| 72 5b 30 5d 3b 0d 09 63 | 68 61 72 20 2a 20 73 74 |r[0];..c|har * st|
|00001000| 72 73 74 61 72 74 20 3d | 20 73 74 72 70 3b 0d 09 |rstart =| strp;..|
|00001010| 0d 09 69 66 20 28 74 68 | 65 6e 75 6d 20 3d 3d 20 |..if (th|enum == |
|00001020| 30 29 20 7b 0d 09 09 2f | 2a 20 68 61 6e 64 6c 65 |0) {.../|* handle|
|00001030| 20 7a 65 72 6f 20 61 73 | 20 73 70 65 63 69 61 6c | zero as| special|
|00001040| 20 63 61 73 65 20 2a 2f | 0d 09 09 2a 73 74 72 70 | case */|...*strp|
|00001050| 2b 2b 20 3d 20 27 30 27 | 3b 0d 09 09 2a 73 74 72 |++ = '0'|;...*str|
|00001060| 70 20 3d 20 30 3b 0d 09 | 09 72 65 74 75 72 6e 28 |p = 0;..|.return(|
|00001070| 31 29 3b 0d 09 7d 0d 09 | 69 66 20 28 74 68 65 6e |1);..}..|if (then|
|00001080| 75 6d 20 3c 20 30 29 20 | 7b 0d 09 09 2f 2a 20 70 |um < 0) |{.../* p|
|00001090| 75 74 20 69 6e 20 74 68 | 65 20 6d 69 6e 75 73 20 |ut in th|e minus |
|000010a0| 73 69 67 6e 20 66 6f 72 | 20 6e 65 67 61 74 69 76 |sign for| negativ|
|000010b0| 65 20 6e 75 6d 62 65 72 | 73 20 2a 2f 0d 09 09 2a |e number|s */...*|
|000010c0| 73 74 72 70 2b 2b 20 3d | 20 27 2d 27 3b 0d 09 09 |strp++ =| '-';...|
|000010d0| 74 68 65 6e 75 6d 20 3d | 20 2d 74 68 65 6e 75 6d |thenum =| -thenum|
|000010e0| 3b 0d 09 7d 0d 09 2a 74 | 61 72 72 70 2b 2b 20 3d |;..}..*t|arrp++ =|
|000010f0| 20 30 3b 09 09 2f 2a 20 | 70 72 65 2d 74 65 72 6d | 0;../* |pre-term|
|00001100| 69 6e 61 74 65 20 74 68 | 65 20 62 61 63 6b 77 61 |inate th|e backwa|
|00001110| 72 64 73 20 63 68 61 72 | 20 61 72 72 61 79 20 2a |rds char| array *|
|00001120| 2f 0d 09 77 68 69 6c 65 | 20 28 74 68 65 6e 75 6d |/..while| (thenum|
|00001130| 29 20 7b 0d 09 09 2f 2a | 20 70 75 74 20 74 68 65 |) {.../*| put the|
|00001140| 20 66 72 61 63 74 69 6f | 6e 73 20 69 6e 74 6f 20 | fractio|ns into |
|00001150| 61 6e 20 61 72 72 61 79 | 20 61 73 20 64 65 63 69 |an array| as deci|
|00001160| 6d 61 6c 20 63 68 61 72 | 61 63 74 65 72 73 20 2a |mal char|acters *|
|00001170| 2f 0d 09 09 2a 74 61 72 | 72 70 2b 2b 20 3d 20 28 |/...*tar|rp++ = (|
|00001180| 74 68 65 6e 75 6d 20 25 | 20 31 30 29 20 2b 20 27 |thenum %| 10) + '|
|00001190| 30 27 3b 0d 09 09 74 68 | 65 6e 75 6d 20 2f 3d 20 |0';...th|enum /= |
|000011a0| 31 30 3b 0d 09 7d 0d 09 | 2f 2a 20 6e 6f 77 20 72 |10;..}..|/* now r|
|000011b0| 65 61 64 20 74 68 65 20 | 61 72 72 61 79 20 62 61 |ead the |array ba|
|000011c0| 63 6b 77 61 72 64 73 20 | 69 6e 74 6f 20 74 68 65 |ckwards |into the|
|000011d0| 20 61 72 67 20 2a 2f 0d | 09 77 68 69 6c 65 20 28 | arg */.|.while (|
|000011e0| 2a 2d 2d 74 61 72 72 70 | 29 20 7b 0d 09 09 2a 73 |*--tarrp|) {...*s|
|000011f0| 74 72 70 2b 2b 20 3d 20 | 2a 74 61 72 72 70 3b 0d |trp++ = |*tarrp;.|
|00001200| 09 7d 0d 09 2a 73 74 72 | 70 20 3d 20 30 3b 09 09 |.}..*str|p = 0;..|
|00001210| 09 2f 2a 20 74 65 72 6d | 69 6e 61 74 65 20 74 68 |./* term|inate th|
|00001220| 65 20 61 72 67 20 61 72 | 72 61 79 20 2a 2f 0d 09 |e arg ar|ray */..|
|00001230| 72 65 74 75 72 6e 28 73 | 74 72 70 20 2d 20 73 74 |return(s|trp - st|
|00001240| 72 73 74 61 72 74 29 3b | 09 2f 2a 20 61 6e 64 20 |rstart);|./* and |
|00001250| 72 65 74 75 72 6e 20 74 | 68 65 20 6c 65 6e 67 74 |return t|he lengt|
|00001260| 68 20 2a 2f 0d 7d 0d 0d | 0d 2f 2a 20 63 6f 6e 76 |h */.}..|./* conv|
|00001270| 65 72 74 20 61 20 6c 6f | 6e 67 20 74 6f 20 61 20 |ert a lo|ng to a |
|00001280| 73 74 72 69 6e 67 2c 20 | 72 65 74 75 72 6e 69 6e |string, |returnin|
|00001290| 67 20 74 68 65 20 6c 65 | 6e 67 74 68 20 2a 2f 0d |g the le|ngth */.|
|000012a0| 0d 75 6c 6f 6e 67 74 6f | 73 74 72 28 73 74 72 70 |.ulongto|str(strp|
|000012b0| 2c 20 74 68 65 6e 75 6d | 29 0d 63 68 61 72 20 2a |, thenum|).char *|
|000012c0| 20 73 74 72 70 3b 0d 6c | 6f 6e 67 20 74 68 65 6e | strp;.l|ong then|
|000012d0| 75 6d 3b 0d 7b 0d 09 63 | 68 61 72 20 74 61 72 72 |um;.{..c|har tarr|
|000012e0| 5b 38 30 5d 3b 0d 09 63 | 68 61 72 20 2a 20 74 61 |[80];..c|har * ta|
|000012f0| 72 72 70 20 3d 20 26 74 | 61 72 72 5b 30 5d 3b 0d |rrp = &t|arr[0];.|
|00001300| 09 63 68 61 72 20 2a 20 | 73 74 72 73 74 61 72 74 |.char * |strstart|
|00001310| 20 3d 20 73 74 72 70 3b | 0d 09 0d 09 69 66 20 28 | = strp;|....if (|
|00001320| 74 68 65 6e 75 6d 20 3d | 3d 20 30 29 20 7b 0d 09 |thenum =|= 0) {..|
|00001330| 09 2f 2a 20 68 61 6e 64 | 6c 65 20 7a 65 72 6f 20 |./* hand|le zero |
|00001340| 61 73 20 73 70 65 63 69 | 61 6c 20 63 61 73 65 20 |as speci|al case |
|00001350| 2a 2f 0d 09 09 2a 73 74 | 72 70 2b 2b 20 3d 20 27 |*/...*st|rp++ = '|
|00001360| 30 27 3b 0d 09 09 2a 73 | 74 72 70 20 3d 20 30 3b |0';...*s|trp = 0;|
|00001370| 0d 09 09 72 65 74 75 72 | 6e 28 31 29 3b 0d 09 7d |...retur|n(1);..}|
|00001380| 0d 09 69 66 20 28 74 68 | 65 6e 75 6d 20 3c 20 30 |..if (th|enum < 0|
|00001390| 29 20 7b 0d 09 09 2f 2a | 20 70 75 74 20 69 6e 20 |) {.../*| put in |
|000013a0| 74 68 65 20 6d 69 6e 75 | 73 20 73 69 67 6e 20 66 |the minu|s sign f|
|000013b0| 6f 72 20 6e 65 67 61 74 | 69 76 65 20 6e 75 6d 62 |or negat|ive numb|
|000013c0| 65 72 73 20 2a 2f 0d 09 | 09 2a 73 74 72 70 2b 2b |ers */..|.*strp++|
|000013d0| 20 3d 20 27 2d 27 3b 0d | 09 09 74 68 65 6e 75 6d | = '-';.|..thenum|
|000013e0| 20 3d 20 2d 74 68 65 6e | 75 6d 3b 0d 09 7d 0d 09 | = -then|um;..}..|
|000013f0| 2a 74 61 72 72 70 2b 2b | 20 3d 20 30 3b 09 09 2f |*tarrp++| = 0;../|
|00001400| 2a 20 70 72 65 2d 74 65 | 72 6d 69 6e 61 74 65 20 |* pre-te|rminate |
|00001410| 74 68 65 20 62 61 63 6b | 77 61 72 64 73 20 63 68 |the back|wards ch|
|00001420| 61 72 20 61 72 72 61 79 | 20 2a 2f 0d 09 77 68 69 |ar array| */..whi|
|00001430| 6c 65 20 28 74 68 65 6e | 75 6d 29 20 7b 0d 09 09 |le (then|um) {...|
|00001440| 2f 2a 20 70 75 74 20 74 | 68 65 20 66 72 61 63 74 |/* put t|he fract|
|00001450| 69 6f 6e 73 20 69 6e 74 | 6f 20 61 6e 20 61 72 72 |ions int|o an arr|
|00001460| 61 79 20 61 73 20 64 65 | 63 69 6d 61 6c 20 63 68 |ay as de|cimal ch|
|00001470| 61 72 61 63 74 65 72 73 | 20 2a 2f 0d 09 09 2a 74 |aracters| */...*t|
|00001480| 61 72 72 70 2b 2b 20 3d | 20 28 74 68 65 6e 75 6d |arrp++ =| (thenum|
|00001490| 20 25 20 31 30 29 20 2b | 20 27 30 27 3b 0d 09 09 | % 10) +| '0';...|
|000014a0| 74 68 65 6e 75 6d 20 2f | 3d 20 31 30 3b 0d 09 7d |thenum /|= 10;..}|
|000014b0| 0d 09 2f 2a 20 6e 6f 77 | 20 72 65 61 64 20 74 68 |../* now| read th|
|000014c0| 65 20 61 72 72 61 79 20 | 62 61 63 6b 77 61 72 64 |e array |backward|
|000014d0| 73 20 69 6e 74 6f 20 74 | 68 65 20 61 72 67 20 2a |s into t|he arg *|
|000014e0| 2f 0d 09 77 68 69 6c 65 | 20 28 2a 2d 2d 74 61 72 |/..while| (*--tar|
|000014f0| 72 70 29 20 7b 0d 09 09 | 2a 73 74 72 70 2b 2b 20 |rp) {...|*strp++ |
|00001500| 3d 20 2a 74 61 72 72 70 | 3b 0d 09 7d 0d 09 2a 73 |= *tarrp|;..}..*s|
|00001510| 74 72 70 20 3d 20 30 3b | 09 09 09 2f 2a 20 74 65 |trp = 0;|.../* te|
|00001520| 72 6d 69 6e 61 74 65 20 | 74 68 65 20 61 72 67 20 |rminate |the arg |
|00001530| 61 72 72 61 79 20 2a 2f | 0d 09 72 65 74 75 72 6e |array */|..return|
|00001540| 28 73 74 72 70 20 2d 20 | 73 74 72 73 74 61 72 74 |(strp - |strstart|
|00001550| 29 3b 09 2f 2a 20 61 6e | 64 20 72 65 74 75 72 6e |);./* an|d return|
|00001560| 20 74 68 65 20 6c 65 6e | 67 74 68 20 2a 2f 0d 7d | the len|gth */.}|
|00001570| 0d 0d 0d 2f 2a 20 66 72 | 6f 6d 20 78 63 6d 64 2e |.../* fr|om xcmd.|
|00001580| 69 6e 63 2e 63 20 2a 2f | 0d 0d 70 61 73 63 61 6c |inc.c */|..pascal|
|00001590| 20 76 6f 69 64 20 53 65 | 74 47 6c 6f 62 61 6c 28 | void Se|tGlobal(|
|000015a0| 70 61 72 61 6d 50 74 72 | 2c 67 6c 6f 62 4e 61 6d |paramPtr|,globNam|
|000015b0| 65 2c 67 6c 6f 62 56 61 | 6c 75 65 29 0d 09 58 43 |e,globVa|lue)..XC|
|000015c0| 6d 64 50 74 72 09 70 61 | 72 61 6d 50 74 72 3b 09 |mdPtr.pa|ramPtr;.|
|000015d0| 53 74 72 69 6e 67 50 74 | 72 09 67 6c 6f 62 4e 61 |StringPt|r.globNa|
|000015e0| 6d 65 3b 09 48 61 6e 64 | 6c 65 09 67 6c 6f 62 56 |me;.Hand|le.globV|
|000015f0| 61 6c 75 65 3b 0d 2f 2a | 20 53 65 74 20 74 68 65 |alue;./*| Set the|
|00001600| 20 76 61 6c 75 65 20 6f | 66 20 74 68 65 20 73 70 | value o|f the sp|
|00001610| 65 63 69 66 69 65 64 20 | 48 79 70 65 72 54 61 6c |ecified |HyperTal|
|00001620| 6b 20 67 6c 6f 62 61 6c | 20 76 61 72 69 61 62 6c |k global| variabl|
|00001630| 65 20 74 6f 20 62 65 0d | 20 20 20 74 68 65 20 7a |e to be.|   the z|
|00001640| 65 72 6f 2d 74 65 72 6d | 69 6e 61 74 65 64 20 73 |ero-term|inated s|
|00001650| 74 72 69 6e 67 20 69 6e | 20 67 6c 6f 62 56 61 6c |tring in| globVal|
|00001660| 75 65 2e 20 20 54 68 65 | 20 63 6f 6e 74 65 6e 74 |ue.  The| content|
|00001670| 73 20 6f 66 20 74 68 65 | 20 0d 20 20 20 48 61 6e |s of the| .   Han|
|00001680| 64 6c 65 20 61 72 65 20 | 63 6f 70 69 65 64 2c 20 |dle are |copied, |
|00001690| 73 6f 20 79 6f 75 20 6d | 75 73 74 20 73 74 69 6c |so you m|ust stil|
|000016a0| 6c 20 64 69 73 70 6f 73 | 65 20 69 74 20 61 66 74 |l dispos|e it aft|
|000016b0| 65 72 77 61 72 64 73 2e | 20 20 2a 2f 0d 7b 0d 09 |erwards.|  */.{..|
|000016c0| 70 61 72 61 6d 50 74 72 | 2d 3e 69 6e 41 72 67 73 |paramPtr|->inArgs|
|000016d0| 5b 30 5d 20 3d 20 28 6c | 6f 6e 67 29 67 6c 6f 62 |[0] = (l|ong)glob|
|000016e0| 4e 61 6d 65 3b 0d 09 70 | 61 72 61 6d 50 74 72 2d |Name;..p|aramPtr-|
|000016f0| 3e 69 6e 41 72 67 73 5b | 31 5d 20 3d 20 28 6c 6f |>inArgs[|1] = (lo|
|00001700| 6e 67 29 67 6c 6f 62 56 | 61 6c 75 65 3b 0d 09 70 |ng)globV|alue;..p|
|00001710| 61 72 61 6d 50 74 72 2d | 3e 72 65 71 75 65 73 74 |aramPtr-|>request|
|00001720| 20 3d 20 78 72 65 71 53 | 65 74 47 6c 6f 62 61 6c | = xreqS|etGlobal|
|00001730| 3b 0d 20 20 20 20 28 70 | 61 72 61 6d 50 74 72 2d |;.    (p|aramPtr-|
|00001740| 3e 65 6e 74 72 79 50 6f | 69 6e 74 29 28 29 3b 0d |>entryPo|int)();.|
|00001750| 7d 0d 0d 70 61 73 63 61 | 6c 20 76 6f 69 64 20 5a |}..pasca|l void Z|
|00001760| 65 72 6f 54 6f 50 61 73 | 28 70 61 72 61 6d 50 74 |eroToPas|(paramPt|
|00001770| 72 2c 7a 65 72 6f 53 74 | 72 2c 70 61 73 53 74 72 |r,zeroSt|r,pasStr|
|00001780| 29 0d 09 58 43 6d 64 50 | 74 72 09 70 61 72 61 6d |)..XCmdP|tr.param|
|00001790| 50 74 72 3b 09 63 68 61 | 72 09 2a 7a 65 72 6f 53 |Ptr;.cha|r.*zeroS|
|000017a0| 74 72 3b 09 53 74 72 69 | 6e 67 50 74 72 09 70 61 |tr;.Stri|ngPtr.pa|
|000017b0| 73 53 74 72 3b 0d 2f 2a | 20 46 69 6c 6c 20 74 68 |sStr;./*| Fill th|
|000017c0| 65 20 50 61 73 63 61 6c | 20 73 74 72 69 6e 67 20 |e Pascal| string |
|000017d0| 77 69 74 68 20 74 68 65 | 20 63 6f 6e 74 65 6e 74 |with the| content|
|000017e0| 73 20 6f 66 20 74 68 65 | 20 7a 65 72 6f 2d 74 65 |s of the| zero-te|
|000017f0| 72 6d 69 6e 61 74 65 64 | 0d 20 20 20 73 74 72 69 |rminated|.   stri|
|00001800| 6e 67 2e 20 20 59 6f 75 | 20 63 72 65 61 74 65 20 |ng.  You| create |
|00001810| 74 68 65 20 50 61 73 63 | 61 6c 20 73 74 72 69 6e |the Pasc|al strin|
|00001820| 67 20 61 6e 64 20 70 61 | 73 73 20 69 74 20 69 6e |g and pa|ss it in|
|00001830| 20 61 73 20 61 20 56 41 | 52 20 0d 20 20 20 70 61 | as a VA|R .   pa|
|00001840| 72 61 6d 65 74 65 72 2e | 20 20 55 73 65 66 75 6c |rameter.|  Useful|
|00001850| 20 66 6f 72 20 63 6f 6e | 76 65 72 74 69 6e 67 20 | for con|verting |
|00001860| 74 68 65 20 61 72 67 75 | 6d 65 6e 74 73 20 6f 66 |the argu|ments of|
|00001870| 20 61 6e 79 20 58 43 4d | 44 20 74 6f 20 0d 20 20 | any XCM|D to .  |
|00001880| 20 50 61 73 63 61 6c 20 | 73 74 72 69 6e 67 73 2e | Pascal |strings.|
|00001890| 20 2a 2f 0d 7b 0d 09 70 | 61 72 61 6d 50 74 72 2d | */.{..p|aramPtr-|
|000018a0| 3e 69 6e 41 72 67 73 5b | 30 5d 20 3d 20 28 6c 6f |>inArgs[|0] = (lo|
|000018b0| 6e 67 29 7a 65 72 6f 53 | 74 72 3b 0d 09 70 61 72 |ng)zeroS|tr;..par|
|000018c0| 61 6d 50 74 72 2d 3e 69 | 6e 41 72 67 73 5b 31 5d |amPtr->i|nArgs[1]|
|000018d0| 20 3d 20 28 6c 6f 6e 67 | 29 70 61 73 53 74 72 3b | = (long|)pasStr;|
|000018e0| 0d 09 70 61 72 61 6d 50 | 74 72 2d 3e 72 65 71 75 |..paramP|tr->requ|
|000018f0| 65 73 74 20 3d 20 78 72 | 65 71 5a 65 72 6f 54 6f |est = xr|eqZeroTo|
|00001900| 50 61 73 3b 0d 20 20 20 | 20 28 28 70 61 72 61 6d |Pas;.   | ((param|
|00001910| 50 74 72 2d 3e 65 6e 74 | 72 79 50 6f 69 6e 74 29 |Ptr->ent|ryPoint)|
|00001920| 29 28 29 3b 0d 7d 0d 00 | 00 00 00 00 00 00 00 00 |)();.}..|........|
|00001930| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001940| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001950| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001960| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001970| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001980| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 32 |.......L|...L...2|
|00001990| 00 00 00 02 05 65 78 63 | 65 6c 01 00 00 00 00 05 |.....exc|el......|
|000019a0| 00 00 00 dc 9c ba 91 a8 | 9f b9 ee 95 80 00 00 00 |........|........|
|000019b0| 08 54 4e 4f 70 65 6e 2e | 63 00 02 00 00 00 50 61 |.TNOpen.|c.....Pa|
|000019c0| 72 74 53 49 54 78 00 00 | 00 00 00 00 00 00 00 01 |rtSITx..|........|
|000019d0| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|000019e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000019f0| 00 00 a9 8d 3a 8a 00 00 | 00 00 00 00 01 7e 00 c0 |....:...|.....~..|
|00001a00| 01 80 00 00 00 00 22 5f | 00 00 00 00 00 00 00 00 |......"_|........|
|00001a10| 00 00 00 00 00 02 21 b0 | 00 02 24 00 9c b3 a8 0e |......!.|..$.....|
|00001a20| 9d eb 13 0c 00 00 00 00 | 1b 75 00 00 00 00 00 00 |........|.u......|
|00001a30| 00 00 00 00 00 00 01 0e | 00 00 00 00 00 00 00 00 |........|........|
|00001a40| 00 00 00 00 00 00 58 9d | 00 89 00 00 00 00 00 00 |......X.|........|
|00001a50| 00 00 00 00 00 00 0a 00 | 00 00 00 02 04 6a 75 6e |........|.....jun|
|00001a60| 6b 02 02 00 00 00 54 45 | 58 54 4d 50 53 20 01 00 |k.....TE|XTMPS ..|
|00001a70| 01 00 01 c0 00 00 00 00 | 2f ad 00 00 00 01 85 02 |........|/.......|
|00001a80| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 f1 6e 65 |...H..Mo|naco..ne|
|00001a90| 00 00 00 14 00 01 39 88 | 00 0a 00 03 00 00 01 42 |......9.|.......B|
|00001aa0| 01 f1 00 00 00 00 00 06 | 00 04 00 29 00 02 01 85 |........|...)....|
|00001ab0| 02 02 00 29 00 02 01 85 | 02 02 a1 21 ab 90 00 00 |...)....|...!....|
|00001ac0| 06 7c 00 00 06 83 00 00 | 05 30 01 00 00 00 01 00 |.|......|.0......|
|00001ad0| 00 00 01 4c 00 00 00 4c | 00 00 00 32 00 33 e8 ac |...L...L|...2.3..|
|00001ae0| 05 84 00 00 00 1c 00 32 | 00 00 4d 50 53 52 00 00 |.......2|..MPSR..|
|00001af0| 00 0a 03 ed ff ff 00 00 | 00 00 00 35 1f d4 00 00 |........|...5....|
+--------+-------------------------+-------------------------+--------+--------+